
itcl::class Bot {
    
    private common bot_count 0
    
    public variable nick
    public variable ident
    public variable host
    public variable vhost
    public variable modes
    public variable ip
    public variable realname
    public variable channels [list]
    
    constructor {args} {
        eval [list $this] configure $args
        incr bot_count
    }
    
    destructor {
        incr bot_count -1
    }
    
}